I.t,n,« mail „««gl.8 l„ft.s.n,cU.re for dta. ,„n,.,e - p«ud.c.de «,d .p«, 

file on local n,achi.rif S J J^Slt, "S^if T'"'" "''<''"'^'' 
.end, the u, ua^-^ sSTm," ^^'^ J^^;^' »P«» a SNtlP co,.«c.io„ and 

— is se^t? ' '''^ "^^^^ h^^t each- time a message 

on einh_sendMessage kcMessage 

messageHandler ( Ssent ) 

rZr-T'^''^''^ ^''^"^'^ ^'^ '^^ "^h^ internet 
end if ° ^^'■'dSMTPMescageikcMeca.ge) 

if retval <> o then aiert ("p.oble. ...nding ..^.sage .o Internet") 
end emh_3endMsssag« 



--- emh_getUoerMailbox 

— main can b- s-hun ^n Alternatively, email 

on emh__getUser^4ailbox mailboxName 

global ernG_userNanie, emG_u3erAddres3 

set oldBox =• readMailbox(mailboxName) 

if mailboxName = "inbox" then 

set newf-lail =• vgetPOPmail () 

append (newMail, oldBox) 
end if 

r:e!t:urn (oldRox.) 

end emG_getUserMailbox 
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FuiKtion, ^ u implemenl IMerae. man sundartb for clieni software: 

1 ■ SNfrP for sending messages 
a) sendSMTPMessage 

2. P0P3 for receiving maildrops 
a) getPopMail 

3. minimal MIME compliance for message fomiat 

a ) message header maker/checker 

b) KCtoMime 

l^^^t^" """"""^ '-■^^ - ".c n«».8= body 

0 decodeMixDe 

a) base64 

b) quoted-printabte 

c) 8 bit 

d) 7 bit 
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M:l,f ia^^jr'^"^^'^^^ Progra^ning ^otes X2/06/98 7:X3 AM 

• Similarly, CloaeSMTPConnection implements the last part of the SMTP protocol. 

on sendSMTPMessage kcMessage 

global emG_SMTPServer, emG_userAddress ' 

set mimeHeasage = makeHimeCompliant ( kcMessaa-) 
o^t socket = openSMTPConnectior.(emG_;lMTPSeryer) 

-_SMTP accepts SENDER and RECIPIENT fields separately 

- The remammg MINIE message headers are sent as part ol the message data. 

set retVal = sendLineToSocket ( "MAIL FROM:" 4 emG_u5erAddre,s 
if retval 0 "250 OK"" then handleSMTPecco.Uet'-a!' ' ''''''''^ 

J:^diri;:i?rp?: reclp?::..^^^^^^^"^-^'^ "^-^'^ be e.pan.ed to 
.et cetVal = .endLineToSocket ( "RCPT TO:" . getRecLpient 
it- retval 0 "250 OK" then haadleSHTF-error ( re.Valf ' 

n'r"5^'!^: ,^|";f^"f^^ocket("DATA:" 5 RETURN S LINEFEED) 
r«r.v^i <> 250 OK" then handUSHTPerroc (retVal) 

---^evrra-;\K*'''^'^''-''' "•" * ^•"'-'P''-' ^ LINEFEED 

3er. retVaL = .-n•ii■;!¥-s--^I^^ ^^^T"^'^^^^ * '^"'■'P^ LINEFEED 

end repLr'"^' ''^^^ haadle.^MTP^rrcr (retVai) 

CloseSHTPConnsct ion ( socket ) 

it recval = "2-,0 OK" then retu.nd; el^e rer.urn(0! 
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Internet Mail Functionality Programiaina Notes , 

doc birth: 12/5/98 a^^ming woces 12/06/98 7:14 AM 

end sendSMTPMessage 
GetPOPMail 

connect 3 thi^ ucj^r ' > d^r 

ana ref.urns the mesaages in a list. 

on getPopMail 

global emG_POPServer, emG_userAddre33 

Zt"^^': ZnpSp'^''^"-""^ '•"^'•""•^ -^-^ verification 

-ck.t openFuPconnectioniemG_POPServer, emG.userAddress) 

pJpa^sirver'' ^ ^'^^"'^ — <=^-^ -^-^ages from the 

P°PM3iJ-box = getmailDrop (socket) 
set newMail = (] . 

closePOPconnsction ( ) 

repeat with msg in popMailbox 

set kcMeo3age = decodeMime (rasg ) 

append (kcMessage, newMail) 
end repeat 

retuLii (nev/Mail) 
end getiPopMail 
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--- 3tr:"j:::?:fi''"' - -^i^-o* -noat, 

,h>, coturns a data itnjctgrc (to bs d»temln»dl 

— s.ch a way as to no ^^sa up s HT^^-i h^Ml c'/c^^-'f 

— for more on this. ii t-...^..e cne nine specs document 

on makeMimeConplaint maildata 

end makeMimeComplaint 
decodeMime 

vrz'z.T^..^ ju-,.a^Sa.d-ML:':„Sdrr;3 ^, 

— body i. wri»;„ tt a n» in th"'--^%'"'H ''^ """'3'' 

::: - ---- -^'n^^-a^s-sja-or^riL'^iL'^n,. 

on decodeMime mimeMessage 

end decodeMime 
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